home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / E-G / GridMaker.cpt / GridMaker / card_3207.txt < prev    next >
Text File  |  1989-04-13  |  10KB  |  454 lines
  1. -- card: 3207 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2777
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on recalculate
  8.   beep
  9. end recalculate
  10.  
  11.  
  12. -- part 1 (button)
  13. -- low flags: 00
  14. -- high flags: E006
  15. -- rect: left=336 top=78 right=96 bottom=405
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: Letter
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   set the hilite of button "letter" to true
  27.   set the hilite of button "A4" to false
  28.   set the hilite of button "Legal" to false
  29.   set the hilite of button "Tabloid" to false
  30.   set the hilite of button "Other" to false
  31.   set the hilite of button "B5" to false
  32.   put "66.00" into card field "pageLength"
  33.   set the locktext of card field "pageLength" to true
  34.   send closefield
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: A006
  42. -- rect: left=336 top=97 right=115 bottom=405
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 0 / 0
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: A4
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   set the hilite of button "letter" to false
  54.   set the hilite of button "A4" to true
  55.   set the hilite of button "Legal" to false
  56.   set the hilite of button "Tabloid" to false
  57.   set the hilite of button "Other" to false
  58.   set the hilite of button "B5" to false
  59.   put "70.02" into card field "pageLength"
  60.   set the locktext of card field "pageLength" to true
  61.   send closeField
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 3 (button)
  67. -- low flags: 00
  68. -- high flags: A006
  69. -- rect: left=336 top=116 right=134 bottom=405
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: Legal
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   set the hilite of button "letter" to false
  81.   set the hilite of button "A4" to false
  82.   set the hilite of button "Legal" to true
  83.   set the hilite of button "Tabloid" to false
  84.   set the hilite of button "Other" to false
  85.   set the hilite of button "B5" to false
  86.   put "84.00" into card field "pageLength"
  87.   set the locktext of card field "pageLength" to true
  88.   send closeField
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: A006
  96. -- rect: left=336 top=136 right=154 bottom=405
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: B5
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   set the hilite of button "letter" to false
  108.   set the hilite of button "A4" to false
  109.   set the hilite of button "Legal" to false
  110.   set the hilite of button "Tabloid" to false
  111.   set the hilite of button "Other" to false
  112.   set the hilite of button "B5" to true
  113.   put "59.00" into card field "pageLength"
  114.   set the locktext of card field "pageLength" to true
  115.   send closeField
  116. end mouseUp
  117.  
  118.  
  119.  
  120. -- part 5 (button)
  121. -- low flags: 00
  122. -- high flags: A006
  123. -- rect: left=337 top=156 right=174 bottom=406
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Tabloid
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   set the hilite of button "letter" to false
  135.   set the hilite of button "A4" to false
  136.   set the hilite of button "Legal" to false
  137.   set the hilite of button "Tabloid" to true
  138.   set the hilite of button "Other" to false
  139.   set the hilite of button "B5" to false
  140.   put "102.00" into card field "pageLength"
  141.   set the locktext of card field "pageLength" to true
  142.   send closefield
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 6 (field)
  148. -- low flags: 01
  149. -- high flags: 0002
  150. -- rect: left=252 top=81 right=99 bottom=305
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 0 / 0
  153. -- text alignment: 0
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: PageLength
  159.  
  160.  
  161. -- part 7 (field)
  162. -- low flags: 00
  163. -- high flags: 0002
  164. -- rect: left=252 top=106 right=124 bottom=305
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 0
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Top
  173.  
  174.  
  175. -- part 8 (field)
  176. -- low flags: 00
  177. -- high flags: 0002
  178. -- rect: left=251 top=130 right=148 bottom=304
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 0
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: Rows
  187. ----- HyperTalk script -----
  188. on closeField
  189.   put trunc(card field "rows") into card field "rows"
  190.   pass closeField
  191. end closefield
  192.  
  193.  
  194.  
  195. -- part 9 (field)
  196. -- low flags: 01
  197. -- high flags: 0002
  198. -- rect: left=251 top=156 right=174 bottom=304
  199. -- title width / last selected line: 0
  200. -- icon id / first selected line: 0 / 0
  201. -- text alignment: 0
  202. -- font id: 0
  203. -- text size: 12
  204. -- style flags: 0
  205. -- line height: 16
  206. -- part name: RowSpace
  207. ----- HyperTalk script -----
  208. on mouseUp
  209.   show card field "HideRow"
  210. end mouseUp
  211.  
  212.  
  213. -- part 11 (field)
  214. -- low flags: 01
  215. -- high flags: 0002
  216. -- rect: left=251 top=202 right=220 bottom=304
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: Bottom
  225.  
  226.  
  227. -- part 16 (button)
  228. -- low flags: 00
  229. -- high flags: A006
  230. -- rect: left=337 top=177 right=195 bottom=406
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Other
  239. ----- HyperTalk script -----
  240. on mouseUp
  241.   set the hilite of button "letter" to false
  242.   set the hilite of button "A4" to false
  243.   set the hilite of button "Legal" to false
  244.   set the hilite of button "Tabloid" to false
  245.   set the hilite of button "Other" to true
  246.   set the hilite of button "B5" to false
  247.   Set the lockText of card field "pageLength" to false
  248.   click at 0,0
  249.   type tab
  250.   send closefield
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 12 (field)
  256. -- low flags: 81
  257. -- high flags: 0007
  258. -- rect: left=360 top=35 right=216 bottom=509
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 0 / 0
  261. -- text alignment: 0
  262. -- font id: 3
  263. -- text size: 12
  264. -- style flags: 0
  265. -- line height: 16
  266. -- part name: Explanation
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   hide target
  270.   pass mouseUp
  271. end mouseUp
  272.  
  273.  
  274.  
  275. -- part 14 (field)
  276. -- low flags: 00
  277. -- high flags: 0002
  278. -- rect: left=251 top=180 right=198 bottom=304
  279. -- title width / last selected line: 0
  280. -- icon id / first selected line: 0 / 0
  281. -- text alignment: 0
  282. -- font id: 0
  283. -- text size: 12
  284. -- style flags: 0
  285. -- line height: 16
  286. -- part name: LineSpace
  287. ----- HyperTalk script -----
  288.  
  289. on closeField
  290.   put trunc(card field "lineSpace") into card field "lineSpace"
  291.   pass closeField
  292. end closeField
  293.  
  294.  
  295. -- part 17 (field)
  296. -- low flags: 81
  297. -- high flags: 0002
  298. -- rect: left=316 top=131 right=202 bottom=409
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 0
  302. -- font id: 3
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: HideRow
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   hide card field "HideRow"
  310. end mouseUp
  311.  
  312.  
  313. -- part 19 (field)
  314. -- low flags: 01
  315. -- high flags: 0002
  316. -- rect: left=89 top=15 right=34 bottom=229
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 0
  320. -- font id: 3
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: GridName
  325. ----- HyperTalk script -----
  326. on mouseDown
  327.   ask "Change the name of this card to:" with card field "gridname"
  328.   put it into card field "gridname"
  329. end mouseDown
  330.  
  331.  
  332. -- part 21 (button)
  333. -- low flags: 00
  334. -- high flags: 0000
  335. -- rect: left=258 top=8 right=27 bottom=282
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 16560 / 16560
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: Right
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   visual wipe left
  347.   go next
  348. end mouseUp
  349.  
  350.  
  351.  
  352. -- part 22 (button)
  353. -- low flags: 00
  354. -- high flags: 0000
  355. -- rect: left=233 top=8 right=27 bottom=257
  356. -- title width / last selected line: 0
  357. -- icon id / first selected line: 15420 / 15420
  358. -- text alignment: 1
  359. -- font id: 0
  360. -- text size: 12
  361. -- style flags: 0
  362. -- line height: 16
  363. -- part name: Left
  364. ----- HyperTalk script -----
  365. on mouseUp
  366.   visual wipe right
  367.   go previous
  368. end mouseUp
  369.  
  370.  
  371.  
  372. -- part 23 (button)
  373. -- low flags: 00
  374. -- high flags: 8002
  375. -- rect: left=359 top=276 right=294 bottom=457
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: Now what?
  384. ----- HyperTalk script -----
  385. on mouseUp
  386.   set the visible of card field "explanation" to not the visible of card field "explanation"
  387. end mouseUp
  388.  
  389.  
  390.  
  391. -- part 26 (button)
  392. -- low flags: 00
  393. -- high flags: 8002
  394. -- rect: left=360 top=295 right=313 bottom=458
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 1
  398. -- font id: 0
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: Another grid?
  403. ----- HyperTalk script -----
  404. on mouseUp
  405.   answer "Design Another Grid?" with "cancel" or "yes"
  406.   if it is "no" then exit mouseUp
  407.   else
  408.     doMenu "Copy Card"
  409.     doMenu "Paste Card"
  410.   end if
  411.   Ask "What is the name of this grid?"
  412.   Put it into card field "gridName"
  413. end mouseUp
  414.  
  415.  
  416.  
  417. -- part contents for card part 12
  418. ----- text -----
  419. Set page length in RSG's File menu.
  420. Set line spacing in RSG's Format menu.
  421.  
  422. Set Top, Bottom, Number of Rows and Space Between Rows in the RSG Grid Setup Menu
  423.  
  424. -- part contents for card part 6
  425. ----- text -----
  426. 66.00
  427.  
  428. -- part contents for card part 14
  429. ----- text -----
  430. 13
  431.  
  432. -- part contents for card part 9
  433. ----- text -----
  434. 1 pt
  435.  
  436. -- part contents for card part 7
  437. ----- text -----
  438. 3.00
  439.  
  440. -- part contents for card part 8
  441. ----- text -----
  442. 55
  443.  
  444. -- part contents for card part 17
  445. ----- text -----
  446. Don't change space between rows.
  447.  
  448. -- part contents for card part 11
  449. ----- text -----
  450. 3.05
  451.  
  452. -- part contents for card part 19
  453. ----- text -----
  454. Grid Tester